﻿Public Class Usuario
    'TODO HACER PROPIEDADES

#Region "Declaraciones"
    Private cNombre As String
    Private cPassword As String
    Private cRoles As Generic.List(Of Rol)
#End Region

#Region "Constructores"
    Public Sub New()
        cNombre = ""
        cPassword = ""
        cRoles = Nothing
    End Sub

    Public Sub New(ByVal pNombre As Integer, ByVal pPassword As String, ByRef pRoles As Generic.List(Of Rol))
        cNombre = pNombre
        cPassword = pPassword
        cRoles = pRoles
    End Sub
#End Region

#Region "Propiedades"
    Public Property Nombre()
        Get
            Return cNombre
        End Get
        Set(ByVal value)
            cNombre = value
        End Set
    End Property

    Public Property Password()
        Get
            Return cPassword
        End Get
        Set(ByVal value)
            cPassword = value
        End Set
    End Property

    Public Property Roles()
        Get
            Return cRoles
        End Get
        Set(ByVal value)
            cRoles = value
        End Set
    End Property
#End Region
End Class
